home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / PASCAL / 1463.ZIP / DRAW-2D.ARC / GETMRG.PAS < prev    next >
Pascal/Delphi Source File  |  1986-11-29  |  1KB  |  44 lines
  1. PROCEDURE GETMRG(VAR K:INTEGER);
  2.   VAR
  3.     T:CHAR;
  4.     M,J:INTEGER;
  5.     FLAG:BOOLEAN;
  6.     MSG:SCRLINE;
  7.   BEGIN
  8.     K := 0;
  9.     FLAG := TRUE;
  10.    WHILE FLAG DO
  11.    BEGIN
  12.     FLAG := FALSE;
  13.     MSG := 'Enter Drawing File Name (or CR to quit) >> ';
  14.     DFILE := ASKSTR(23,2,1,MSG,' ',' ','');
  15.     IF LENGTH(DFILE) <> 0 THEN
  16.        BEGIN
  17.          J := POS('.',DFILE);
  18.          IF J=0 THEN DFILE := DFILE + TP;
  19.          ASSIGN(DRAWFIL,DFILE);
  20.          {$I-}
  21.          RESET(DRAWFIL);
  22.          {$I+}
  23.          IF IORESULT = 0 THEN
  24.             BEGIN
  25.               M := FILESIZE(DRAWFIL);
  26.               IF (OBJPTR - 1 + M) <= MAXSIZE  THEN
  27.                  BEGIN
  28.                   FOR J := 1 TO M DO
  29.                   BEGIN
  30.                     READ(DRAWFIL,DRAWREC);
  31.                     DRAWARY[OBJPTR + J - 1] := DRAWREC;
  32.                   END;
  33.                   OBJPTR := OBJPTR + M;
  34.                  END
  35.                 ELSE K := 2;   (* NOT ENOUGH ROOM FOR MERGE FILE *)
  36.               CLOSE(DRAWFIL);
  37.             END
  38.           ELSE
  39.             K := 1;      (* MERGE FILE NOT FOUND *)
  40.           END
  41.         ELSE
  42.           K := 1;        (* CR for QUIT *)
  43.     END; (* WHILE *)
  44.    END; (*PROC*)